home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 24 / CU Amiga Magazine's Super CD-ROM 24 (1998)(EMAP Images)(GB)(Track 1 of 2)[!][issue 1998-07].iso / CUCD / Programming / SWI / source / lisp / qpstart.el < prev    next >
Encoding:
Text File  |  1992-05-26  |  1.0 KB  |  36 lines
  1. ;;;  SCCS: @(#)89/11/21 qpstart.el    1.1
  2. ;;;            Quintus Prolog - GNU Emacs Interface
  3. ;;;                         Support Functions
  4. ;;;
  5. ;;;                Consolidated by Sitaram Muralidhar
  6. ;;;
  7. ;;;                   sitaram@quintus.com
  8. ;;;              Quintus Computer Systems, Inc.
  9. ;;;                  2 May 1989       
  10. ;;;
  11. ;;; This file defines functions that support the Quintus Prolog - GNU Emacs
  12. ;;; interface.
  13. ;;;
  14. ;;;                   Acknowledgements
  15. ;;;
  16. ;;;
  17. ;;; This interface was made possible by contributions from Fernando
  18. ;;; Pereira and various customers of Quintus Computer Systems, Inc.,
  19. ;;; based on code for Quintus's Unipress Emacs interface. 
  20. ;;; 
  21. ;;; Define load-path argument.
  22. ;;;
  23. (defconst load-path-arg 2 
  24.   "The argument in command-line-args which identifies the directory in
  25. which the Quintus Prolog Emacs interface files are located")
  26. ;;;
  27. ;;; Set load-path variable.
  28. ;;; 
  29. (setq load-path (cons 
  30.           (file-name-directory 
  31.             (nth load-path-arg command-line-args))
  32.           load-path))
  33.  
  34. ;;; Load the rest
  35. (load "qprolog-mode" nil t) 
  36.